home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 November
/
1994-11b.d64
/
face off
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
7KB
|
146 lines
100 bd=53280:bk=53281:pokebd,1:pokebk,1:print"[147]":gosub690
110 print""spc(6)"reading data... please wait"
112 print tab(10)"joystick in port 1"
120 fora=49152to49958:readb:c=c+b:pokea,b:nexta:ifc=86769then140
130 print"[147]error in data lines 790-1210":stop
140 fora=14336to14463:readb:pokea,b:next:poke53287,2:poke53288,3
150 ml$="[162]"+chr$(8)+"[189]<"+chr$(3)+"[149]x[202]"+chr$(16)+chr$(248)+"l[191][163]":poke835,0
160 poke836,208:poke830,0:poke831,216:poke828,0:poke829,56:poke56334,0
170 poke1,51:ml$=ml$:sys(peek(51)+256*peek(52)):poke1,55:poke56334,1
180 fori=12552to12559:readj:pokei,j:next:fori=12568to12575:readj:pokei,j:next
190 fori=0to15:poke54296,i:next:fori=0to23:poke54272+i,0:next
200 bd=53280:bk=53281:pokebd,1:pokebk,1:poke3,1:gosub690:poke53272,28
210 poke53274,129:h$="[152] ":gosub680
220 print""tab(6)" [154][145]"
230 printtab(7)"[1] or [2] players [166][157]";:poke204,0
240 poke198,0:wait198,1:geta$:ifa$<"1"ora$>"2"then240
250 poke204,1:poke207,0:printa$
260 np=val(a$)-1:poke247,np:printtab(9)"what speed [1-3] [166][157]";:poke204,0
270 poke198,0:wait198,1:geta$:ifa$<"1"ora$>"3"then270
280 poke204,1:poke207,0:printa$:poke146,31-val(a$)*10:ifnp=1then320
290 printtab(9)"what level [1-9] [166][157]";:poke204,0
300 poke198,0:wait198,1:geta$:ifa$<"1"ora$>"9"then300
310 poke204,1:poke207,0:printa$:poke890,100-val(a$)*10
320 dn$="":co$="[152] "
330 do$=" ":pokebd,12:pokebk,14
340 print"[147]":fori=1to18:printdo$;:next:print"";:fori=1to3:printco$;:next
350 print"[152][170][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][146]#[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][152][180][170][180]";
360 printtab(20)"[194]"spc(17)"[170][152][180][170][180]"spc(18)"[194]"spc(17)"[170][152][180][170][180]"spc(18)"[194]"spc(17)
370 print"[170][152][180][170][180]"spc(18)"[194]"spc(17)"[170][152][180][170][180]"spc(18)"[194]"spc(17)"[170][152][180][170][207][183][208]";spc(16)
380 print"[194]"spc(14)" [207][183][208][152][180][170][144] [167]"spc(16);"[194]"spc(15)"[180] [144] [152][180][170][144] [170] "spc(15)"[194]";
390 printspc(15)"[180] [144] [152][180][170][144] [167]"spc(16)"[194]"spc(15)"[180] [144] [152][180][170][144] [170] [194]";
400 printspc(15)"[180] [144] [152][180][170][144] [167]"spc(16)"[194]"spc(14)" [180] [144] [152][180][170][204][175][186]"spc(16)"[194]"spc(15)
410 print"[204][175][186][152][180][170][180]"spc(18)"[194]"spc(17)"[170][152][180][170][180]"spc(18)"[194]"spc(17)"[170][152][180][170][180]"spc(18)
420 print"[194]"spc(4)spc(13)"[170][152][180][170][180]"spc(18)"[194]"spc(17)"[170][152][180][170][180]"spc(18)"[194]"spc(17);
430 print"[170][152][180][170][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][146]![175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][152][180][145][145]":fori=1to2
440 printco$;:next:print" "
450 poke2023,160:poke56295,12:print"[146]"spc(6)"score 0"spc(15)"score 0"dn$
460 printspc(16)"[145][145][145][145][145][145][145][145] [194] [146]";:printspc(68)"f a c e - o f f"
470 poke839,50:poke840,39:poke849,0:poke850,1:fora=868to870:pokea,140:next
480 ifpeek(3)=1thenpoke838,np*25+55:poke848,0
490 ifpeek(3)=2thenpoke838,9:poke848,1
500 poke53269,15:sys49152:poke53269,14:gosub660:a=peek(3):sc(a)=sc(a)+1
510 print""tab(11)sc(2)spc(19)sc(1):ifsc(1)+sc(2)<9then470
520 poke53269,0
530 print""spc(16)"game[194]over":printdn$""spc(8)h$dn$:v=60
540 a$="press fire button to play again":fori=1to16:gosub640:gosub650:nexti
550 ifpeek(56320)andpeek(56321)and16then550
560 printdn$:a$="[152] [146]press fire button to play again[152] [146]":v=63
570 fori=20to0step-1:gosub640:print"[145]";:gosub650:nexti
580 poke53274,128:poke53269,0:printdn$"[152] [146]up to change options";
590 print" / down to play"
600 if(peek(56320)andpeek(56321)and2)<>2thensc(1)=0:sc(2)=0:poke3,1:goto630
610 if(peek(56320)andpeek(56321)and1)<>1thenprint"[147]":run200
620 goto600
630 printdn$""h$" ":goto450
640 poke214,22:printchr$(13)"[145]";:printtab(v-i)left$(a$,i)right$(a$,i):return
650 forz=1to30:nextz:return
660 poke54277,20:form=1to5:fors=20to90step10:poke54273,s:poke54272,s+30
670 poke54276,32:poke54276,33:pokebk,s:nexts,m:pokebk,14:return
680 poke53289,7:poke2040,224:poke2041,225:poke2042,225:return
690 print"[154] [161][172][162][146][190] [190][188][146] [172][172][187][146][187][161][172][162][146][190] [172][172][187][146][187][161][172][162][146][190][161][172][162][146][190]"spc(8);
700 print"[161][188][146][187] [161][188][190][146][161][161][146][161] [161][188][146][187] [172][162][162][187][161][146][161][161][146][161][161][188][146][187] [161][188][146][187]"spc(9)"[161][146][161] ";
710 print"[161][146][161][161][146][161][161][146][161][172][187][161][146][161] [161][146][161][161][146][161][161][146][161] [161][146][161]"spc(10)"[188][190] ";
720 print"[188][190][188][190] [162][162][146] [188][162][162][146][190] [162][162][146] [188][190] [188][190]":return
730 data 32,45,192,32,218,193,198,251,208,13,165
740 data 143,133,251,32,197,192,32,49,193,32,28
750 data 192,165,3,240,232,96,198,144,208,12,169
760 data 130,133,144,165,143,201,45,240,2,230
770 data 143,96,160,1,169,20,153,110,3,153,120,3
780 data 136,16,245,165,247,208,6,173,122,3,141
790 data 120,3,169,27,141,17,208,162,127,142,13
800 data 220,232,142,15,212,142,18,212,160,23
810 data 169,0,153,0,212,136,16,248,169,1,141,5
820 data 212,169,15,141,24,212,169,20,141,1,212
830 data 169,134,141,20,3,169,192,141,21,3,169
840 data 129,141,26,208,169,0,133,3,133,4,133,5
850 data 96,169,1,141,25,208,165,3,208,36,162,4
860 data 160,2,169,0,133,2,185,70,3,157,0,208
870 data 185,100,3,157,1,208,185,80,3,74,38,2
880 data 202,202,136,16,233,165,2,141,16,208,169
890 data 250,141,18,208,173,13,220,41,1,240,3,76
900 data 49,234,76,188,254,165,4,48,25,24,109,60
910 data 3,141,60,3,173,70,3,105,0,141,70,3,173
920 data 80,3,105,0,141,80,3,16,32,73,255,24,105
930 data 1,133,2,173,60,3,56,229,2,141,60,3,173
940 data 70,3,233,0,141,70,3,173,80,3,233,0,141
950 data 80,3,165,5,48,18,24,109,90,3,141,90,3
960 data 173,100,3,105,0,141,100,3,76,48,193,73
970 data 255,24,105,1,133,2,173,90,3,56,229,2
980 data 141,90,3,173,100,3,233,0,141,100,3,96
990 data 173,100,3,201,71,176,7,165,5,16,3,32
1000 data 205,193,201,212,144,7,165,5,48,3,32
1010 data 205,193,173,70,3,201,27,176,15,174,80
1020 data 3,208,10,165,4,16,6,32,172,193,32,185
1030 data 193,201,65,144,15,173,80,3,240,10,165
1040 data 4,48,6,32,172,193,32,185,193,160,1,169
1050 data 2,133,142,173,80,3,217,81,3,208,39,173
1060 data 70,3,56,249,71,3,201,9,144,4,201,247
1070 data 144,24,133,6,173,100,3,56,249,101,3
1080 data 133,7,201,9,144,4,201,247,144,5,132
1090 data 142,32,200,194,136,16,206,96,32,234
1100 data 194,165,4,73,255,24,105,1,133,4,96,173
1110 data 100,3,201,126,144,12,201,157,176,8,173
1120 data 80,3,24,105,1,133,3,96,32,234,194,165
1130 data 5,73,255,24,105,1,133,5,96,162,1,222
1140 data 110,3,240,3,76,193,194,189,120,3,157
1150 data 110,3,189,71,3,133,139,189,81,3,133
1160 data 140,189,101,3,133,141,165,247,208,78
1170 data 224,0,208,74,173,80,3,240,3,56,176,9
1180 data 173,70,3,201,140,176,59,201,40,8,160
1190 data 254,173,100,3,201,141,176,5,56,233,1
1200 data 208,5,24,105,2,208,3,56,233,1,201,74
1210 data 176,5,40,169,253,208,28,201,207,144,5
1220 data 40,169,254,208,19,205,101,3,144,2,160
1230 data 253,152,40,176,8,73,3,76,78,194,189,0
1240 data 220,74,168,176,10,189,101,3,201,72,240
1250 data 3,222,101,3,152,74,168,176,10,189,101
1260 data 3,201,209,240,3,254,101,3,152,74,168
1270 data 176,25,189,71,3,221,245,194,240,17,189
1280 data 71,3,56,233,1,157,71,3,189,81,3,233,0
1290 data 157,81,3,152,74,168,176,25,189,71,3
1300 data 221,247,194,240,17,189,71,3,24,